(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     22997,        557]
NotebookOptionsPosition[     22428,        535]
NotebookOutlinePosition[     22770,        550]
CellTagsIndexPosition[     22727,        547]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"CodonSequence", "=", 
   RowBox[{
   "Import", "[", "\"\<C:\\Up\\Proteins\\Ribosomal (All)\\aspS.txt\>\"", 
    "]"}]}], ";", 
  RowBox[{"FreeEnergySignal", "=", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{
     "\"\<C:\\Up\\Presentation Data\\Mathematica Animations\\aspS \
Data\\FreeEnergySignal\>\"", ",", "\"\<CSV\>\""}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";", 
  RowBox[{"DisplacementValues", "=", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{
     "\"\<C:\\Up\\Presentation Data\\Mathematica Animations\\aspS \
Data\\DisplacementValues\>\"", ",", "\"\<CSV\>\""}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";", 
  RowBox[{"DisplacementDifferences", "=", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{
     "\"\<C:\\Up\\Presentation Data\\Mathematica Animations\\aspS \
Data\\DisplacementDifferences\>\"", ",", "\"\<CSV\>\""}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";", 
  RowBox[{"ForceDifferences", "=", 
   RowBox[{"Differences", "[", "DisplacementDifferences", "]"}]}], ";", 
  RowBox[{"LeaderSequence", "=", "\"\<auuccuccacuag\>\""}], ";"}]], "Input",
 CellChangeTimes->{
  3.402646132533*^9, {3.402646164917*^9, 3.40264624629*^9}, {
   3.4026463298789997`*^9, 3.402646476131*^9}, {3.402646851884*^9, 
   3.402646916525*^9}, {3.402647240892*^9, 3.402647251415*^9}, {
   3.402647422422*^9, 3.40264744125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"NucleotideSequence", "[", "n_", "]"}], ":=", 
   RowBox[{"StringTake", "[", 
    RowBox[{"CodonSequence", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"3", "n"}], "-", "2"}], ",", 
       RowBox[{
        RowBox[{"3", "n"}], "+", "17"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.402646924855*^9, 3.402646957012*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"BackgroundPlot", "[", "n_", "]"}], ":=", 
   RowBox[{"GraphicsGroup", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", 
         RowBox[{"0.35", ",", "LightGray"}], "]"}], ",", 
        RowBox[{"Rectangle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"11", ",", "6"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"LightBlue", ",", 
        RowBox[{"Rectangle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.5"}], ",", 
            RowBox[{"-", "0.5"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2.5", ",", "2.5"}], "}"}]}], "]"}], ",", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"ListPlot", "[", 
           RowBox[{
            RowBox[{"Take", "[", 
             RowBox[{"FreeEnergySignal", ",", "n"}], "]"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "30"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", 
                 RowBox[{"-", "11"}]}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"Axes", "\[Rule]", "True"}], ",", 
            RowBox[{"Ticks", "\[Rule]", "None"}], ",", 
            RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
            RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.5"}], ",", "2.25"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"EdgeForm", "[", "Brown", "]"}], ",", 
        RowBox[{"FaceForm", "[", "LightBrown", "]"}], ",", 
        RowBox[{"Rectangle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.27", ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6.55", ",", "5.5"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"NucleotideSequence", "[", "n", "]"}], ",", "Black", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Consolas\>\""}], ",", 
           RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "4.5"}], "}"}]}], "]"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"LeaderSequence", ",", "Black", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Consolas\>\""}], ",", 
           RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"3.95", ",", "5.25"}], "}"}]}], "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"LightCyan", ",", 
        RowBox[{"Rectangle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3.5", ",", 
            RowBox[{"-", "0.5"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6.5", ",", "2.5"}], "}"}]}], "]"}], ",", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"ListPlot", "[", 
           RowBox[{
            RowBox[{"Take", "[", 
             RowBox[{"ForceDifferences", ",", "n"}], "]"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "30"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"Axes", "\[Rule]", "True"}], ",", 
            RowBox[{"Ticks", "\[Rule]", "None"}], ",", 
            RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
            RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"3.5", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "3"}], "}"}]}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"LightGreen", ",", 
        RowBox[{"Rectangle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"7.5", ",", 
            RowBox[{"-", "0.5"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"10.5", ",", "2.5"}], "}"}]}], "]"}], ",", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"ListPlot", "[", 
           RowBox[{
            RowBox[{"Take", "[", 
             RowBox[{"DisplacementValues", ",", "n"}], "]"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "30"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "0.5"}], ",", "2.5"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"Axes", "\[Rule]", "True"}], ",", 
            RowBox[{"Ticks", "\[Rule]", "None"}], ",", 
            RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
            RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"7.5", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "3"}], "}"}]}], "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.402646506374*^9, 3.402646626922*^9}, {3.402646666821*^9,
   3.40264675949*^9}, {3.402647114027*^9, 3.402647116648*^9}, {
  3.402647166527*^9, 3.402647210832*^9}, {3.402647259402*^9, 
  3.402647360792*^9}, {3.402647448201*^9, 3.40264747185*^9}, {
  3.402647521726*^9, 3.402647633749*^9}, {3.4026487662139997`*^9, 
  3.402648835158*^9}, {3.4026512078900003`*^9, 3.402651208508*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ReadingFrame", "[", "n_", "]"}], ":=", 
   RowBox[{"GraphicsGroup", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"7.05", "+", 
              RowBox[{
               RowBox[{"DisplacementValues", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "*", "0.208"}]}], ",", 
             "4.1"}], "}"}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"7.05", "+", 
              RowBox[{
               RowBox[{"DisplacementValues", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "*", "0.208"}]}], ",", 
             "3.85"}], "}"}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"8.22", "+", 
              RowBox[{
               RowBox[{"DisplacementValues", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "*", "0.208"}]}], ",", 
             "3.85"}], "}"}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"8.22", "+", 
              RowBox[{
               RowBox[{"DisplacementValues", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "*", "0.208"}]}], ",", 
             "4.1"}], "}"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"7.05", "+", 
              RowBox[{
               RowBox[{"DisplacementValues", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "*", "0.208"}]}], ",", 
             "4.75"}], "}"}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"7.05", "+", 
              RowBox[{
               RowBox[{"DisplacementValues", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "*", "0.208"}]}], ",", "5"}], 
            "}"}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"8.22", "+", 
              RowBox[{
               RowBox[{"DisplacementValues", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "*", "0.208"}]}], ",", "5"}], 
            "}"}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"8.22", "+", 
              RowBox[{
               RowBox[{"DisplacementValues", "[", 
                RowBox[{"[", "n", "]"}], "]"}], "*", "0.208"}]}], ",", 
             "4.75"}], "}"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"Arrowheads", "[", "0.03", "]"}], ",", "\[IndentingNewLine]", 
        
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2.5", ",", "1.5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3.5", ",", "1.5"}], "}"}]}], "}"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6.5", ",", "0.5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"7.5", ",", "0.5"}], "}"}]}], "}"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"3.91", ",", "4"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"3.91", ",", "3.25"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "3.25"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2.5"}], "}"}]}], "}"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"9", ",", "2.5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"9", ",", "3.25"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"7.85", ",", "3.25"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"7.85", ",", "3.85"}], "}"}]}], "}"}], "]"}]}], 
       "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.40264613576*^9, 3.40264614296*^9}, {3.40264676644*^9, 
  3.402646792542*^9}, {3.4026476579779997`*^9, 3.402647658156*^9}, {
  3.4026477017609997`*^9, 3.402647904679*^9}, {3.4026479357939997`*^9, 
  3.402648030638*^9}, {3.402648129428*^9, 3.402648145375*^9}, {
  3.402648251291*^9, 3.40264832898*^9}, {3.402648370415*^9, 
  3.4026484486610003`*^9}, {3.402648488613*^9, 3.4026485102939997`*^9}, {
  3.402648542917*^9, 3.402648598532*^9}, {3.402648651943*^9, 
  3.402648708793*^9}, {3.4026488769519997`*^9, 3.40264888312*^9}, {
  3.402649064211*^9, 3.4026491316619997`*^9}, {3.402649274124*^9, 
  3.4026492836210003`*^9}, {3.402649319814*^9, 3.402649328398*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"List1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"BackgroundPlot", "[", "n", "]"}], ",", 
        RowBox[{"ReadingFrame", "[", "n", "]"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "30"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.40264702598*^9, 3.402647064974*^9}, {3.402647801014*^9, 
  3.402647805848*^9}, {3.402648514241*^9, 3.402648529158*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"List1", "[", 
  RowBox[{"[", "30", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.402647050605*^9, 3.402647053192*^9}, {3.402647502375*^9,
   3.4026475028129997`*^9}, {3.402648860998*^9, 3.402648861461*^9}, {
  3.402648911855*^9, 3.402648937093*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsGroupBox[{
     {GrayLevel[0.85], Opacity[0.35], RectangleBox[{-1, -1}, {11, 6}]}, 
     {RGBColor[0.87, 0.94, 1], RectangleBox[{-0.5, -0.5}, {2.5, 2.5}], 
      InsetBox[
       GraphicsBox[
        GraphicsComplexBox[{{1., -4.8}, {2., 0.}, {3., 0.}, {4., 0.}, {5., 
         0.}, {6., 0.}, {7., 0.}, {8., 0.}, {9., 0.}, {10., 0.}, {11., 0.}, {
         12., 0.}, {13., -0.8}, {14., 0.}, {15., 0.}, {16., 0.}, {17., 0.}, {
         18., 0.}, {19., 0.}, {20., 0.}, {21., 0.}, {22., -2.7}, {
         23., -0.8}, {24., 0.}, {25., -0.7}, {26., 0.}, {27., 0.}, {
         28., -3.}, {29., 0.}, {30., 0.}, {1., 0.}}, {{
           {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
            GraphicsGroupBox[{
              PolygonBox[{{2, 31, 1}, {14, 12, 13}, {29, 27, 28}, {26, 24, 
               25}},
               VertexColors->None], PolygonBox[{{24, 21, 22, 23}},
               VertexColors->None]}]}, {}, {}, {}}, {{}, {}, 
           {Hue[0.67, 0.6, 0.6], Thickness[Large], 
            LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
             17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30}]}}}],
        AspectRatio->1,
        Axes->True,
        AxesOrigin->{0, 0},
        PlotRange->{{0, 30}, {1, -11}},
        PlotRangeClipping->True,
        PlotRangePadding->{Automatic, Automatic},
        Ticks->None], {-0.5, 2.25}, {0, 0}, {3, 3}]}, 
     {EdgeForm[RGBColor[0.6, 0.4, 0.2]], FaceForm[RGBColor[0.94, 0.91, 0.88]],
       RectangleBox[{1.27, 4}, {6.55, 5.5}]}, InsetBox[
      StyleBox["\<\"cgucgucgugaucuugguag\"\>",
       StripOnInput->False,
       FrontFaceColor->GrayLevel[0],
       BackFaceColor->GrayLevel[0],
       GraphicsColor->GrayLevel[0],
       FontFamily->"Consolas",
       FontSize->18,
       FontColor->GrayLevel[0]], {5, 4.5}], InsetBox[
      StyleBox["\<\"auuccuccacuag\"\>",
       StripOnInput->False,
       FrontFaceColor->GrayLevel[0],
       BackFaceColor->GrayLevel[0],
       GraphicsColor->GrayLevel[0],
       FontFamily->"Consolas",
       FontSize->18,
       FontColor->GrayLevel[0]], {3.95, 5.25}], 
     {RGBColor[0.9, 1, 1], RectangleBox[{3.5, -0.5}, {6.5, 2.5}], InsetBox[
       GraphicsBox[
        GraphicsComplexBox[{{1., -0.1}, {2., 0.}, {3., 0.010747}, {4., 
         0.005205999999999999}, {5., -0.015953}, {6., 0.0035752}, {7., 
         0.0676568}, {8., -0.039188}, {9., 0.009404999999999997}, {
         10., -0.041449}, {11., 0.}, {12., 0.}, {13., -0.062755}, {14., 
         0.0569245}, {15., 0.0103477}, {16., 0.0506468}, {17., -0.195634}, {
         18., 0.09570400000000001}, {19., 0.0019559999999999994`}, {20., 
         0.04346151}, {21., 0.07073949}, {22., -0.044562}, {
         23., -0.06995599999999999}, {24., -0.00213}, {25., 0.0382877}, {26., 
         0.0069693}, {27., 0.}, {28., 0.094321}, {29., -0.036948}, {
         30., -0.057373}, {4.246041873434472, 0.}, {5.816921170409971, 0.}, {
         7.633225014226242, 0.}, {8.806453604428622, 0.}, {9.184941204231722, 
         0.}, {13.524358808317213`, 0.}, {16.205646562785244`, 0.}, {
         17.671501829490147`, 0.}, {21.613517570328014`, 0.}, {
         24.052699683554483`, 0.}, {28.718532174389992`, 0.}, {1., 0.}, {30., 
         0.}}, {{
           {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
            GraphicsGroupBox[{
              PolygonBox[{{2, 42, 1}, {32, 31, 5}, {36, 12, 13}, {11, 35, 
               10}, {38, 37, 17}, {34, 33, 8}},
               VertexColors->None], PolygonBox[{{30, 43, 41, 29}},
               VertexColors->None], PolygonBox[{{40, 39, 22, 23, 24}},
               VertexColors->None]}]}, 
           {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
            GraphicsGroupBox[{PolygonBox[{{34, 35, 9}, {27, 41, 28}},
               VertexColors->None], 
              PolygonBox[{{32, 33, 7, 6}, {2, 31, 4, 3}, {40, 27, 26, 25}},
               VertexColors->None], PolygonBox[{{36, 37, 16, 15, 14}},
               VertexColors->None], PolygonBox[{{38, 39, 21, 20, 19, 18}},
               VertexColors->None]}]}, {}, {}}, {{}, {}, 
           {Hue[0.67, 0.6, 0.6], Thickness[Large], 
            LineBox[{1, 2, 3, 4, 31, 5, 32, 6, 7, 33, 8, 34, 9, 35, 10, 11, 
             12, 13, 36, 14, 15, 16, 37, 17, 38, 18, 19, 20, 21, 39, 22, 23, 
             24, 40, 25, 26, 27, 28, 41, 29, 30}]}}}],
        AspectRatio->1,
        Axes->True,
        AxesOrigin->{0, 0},
        PlotRange->{{0, 30}, {-2.5, 2.5}},
        PlotRangeClipping->True,
        PlotRangePadding->{Automatic, Automatic},
        Ticks->None], {3.5, 1}, {0, 0}, {3, 3}]}, 
     {RGBColor[0.88, 1, 0.88], RectangleBox[{7.5, -0.5}, {10.5, 2.5}], 
      InsetBox[
       GraphicsBox[
        GraphicsComplexBox[{{1., 0.}, {2., 0.1}, {3., 0.1}, {4., 0.1}, {5., 
         0.11075}, {6., 0.1267}, {7., 0.1267}, {8., 0.13028}, {9., 0.20151}, {
         10., 0.23355}, {11., 0.275}, {12., 0.275}, {13., 0.275}, {14., 
         0.275}, {15., 0.21224}, {16., 0.20641}, {17., 0.21093}, {18., 
         0.2661}, {19., 0.12563}, {20., 0.080863}, {21., 0.038053}, {22., 
         0.038705}, {23., 0.1101}, {24., 0.13693}, {25., 0.093798}, {26., 
         0.048541}, {27., 0.041571}, {28., 0.041571}, {29., 0.041571}, {30., 
         0.13589}, {30., 0.}}, {{{}, 
           {Hue[0.67, 0.6, 0.6], Opacity[0.2], EdgeForm[None], 
            GraphicsGroupBox[
             PolygonBox[{{1, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 
              19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 
              2}},
              VertexColors->None]]}, {}, {}}, {{}, {}, 
           {Hue[0.67, 0.6, 0.6], Thickness[Large], 
            LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 
             17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30}]}}}],
        AspectRatio->1,
        Axes->True,
        AxesOrigin->{0, 0},
        PlotRange->{{0, 30}, {-0.5, 2.5}},
        PlotRangeClipping->True,
        PlotRangePadding->{Automatic, Automatic},
        Ticks->None], {7.5, 0}, {0, 0}, {3, 3}]}}], GraphicsGroupBox[{
     {GrayLevel[0], 
      LineBox[{{7.07826512, 4.1}, {7.07826512, 3.85}, {8.248265120000001, 
       3.85}, {8.248265120000001, 4.1}}]}, 
     {GrayLevel[0], 
      LineBox[{{7.07826512, 4.75}, {7.07826512, 5}, {8.248265120000001, 5}, {
        8.248265120000001, 4.75}}]}, 
     {GrayLevel[0], Arrowheads[0.03], ArrowBox[{{2.5, 1.5}, {3.5, 1.5}}], 
      ArrowBox[{{6.5, 0.5}, {7.5, 0.5}}], 
      ArrowBox[{{3.91, 4}, {3.91, 3.25}, {1, 3.25}, {1, 2.5}}], 
      ArrowBox[{{9, 2.5}, {9, 3.25}, {7.85, 3.25}, {7.85, 
        3.85}}]}}]}]], "Output",
 CellChangeTimes->{{3.402647054525*^9, 3.402647071959*^9}, 
   3.4026471297869997`*^9, 3.402647223033*^9, {3.4026473283190002`*^9, 
   3.402647368613*^9}, {3.4026474338459997`*^9, 3.402647504328*^9}, {
   3.402647539104*^9, 3.402647638341*^9}, 3.402647811473*^9, {
   3.4026478637869997`*^9, 3.402647909309*^9}, {3.402647978837*^9, 
   3.4026480340690002`*^9}, {3.4026485013129997`*^9, 3.402648602209*^9}, {
   3.4026486762279997`*^9, 3.4026487134110003`*^9}, 3.402648805054*^9, {
   3.402648845751*^9, 3.402648938383*^9}, 3.402649096222*^9, 
   3.4026491366730003`*^9, 3.40264929029*^9, 3.402649336142*^9, 
   3.402651119486*^9, 3.402651213174*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<aspS-animation.gif\>\"", ",", "List1"}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.402649378019*^9, 3.402649400065*^9}}]
},
WindowSize->{607, 549},
WindowMargins->{{Automatic, 310}, {Automatic, 24}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 1420, 34, 312, "Input"],
Cell[1991, 57, 408, 12, 31, "Input"],
Cell[2402, 71, 6531, 162, 492, "Input"],
Cell[8936, 235, 5167, 129, 412, "Input"],
Cell[14106, 366, 520, 13, 52, "Input"],
Cell[CellGroupData[{
Cell[14651, 383, 273, 5, 31, "Input"],
Cell[14927, 390, 7289, 135, 241, "Output"]
}, Open  ]],
Cell[22231, 528, 193, 5, 31, "Input"]
}
]
*)

(* End of internal cache information *)
